home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_1 / fd200.zip / FDTEST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-02-27  |  1.4 KB  |  67 lines
  1. program fdtest;
  2.  
  3. const
  4.      class = 'clas';
  5.      section = ' anywhere';
  6.      date = 'xx/xx/xx';
  7.      time = 'nn:nn';
  8.  
  9. type callstr = string[6];
  10.  
  11. var  callsign : callstr;
  12.      fd_file : text;
  13.      line : integer;
  14.      modestr : array[0..6] of string[2];
  15.      bandstr : array[0..9] of string[4];
  16.      i : integer;
  17.  
  18. procedure makecall;
  19. var i : integer;
  20. begin
  21.   for i := 1 to 2 do
  22.     callsign[i] := chr(65 + random(26));
  23.   callsign[3] := chr(48 + random(10));
  24.   for i := 4 to 6 do
  25.     callsign[i] := chr(65 + random(27));
  26. end;
  27.  
  28. procedure fprint;
  29. var st1, st2 : string[8];
  30. begin
  31.     makecall;
  32.     write(fd_file,callsign:6);
  33.     write(fd_file,class:2);
  34.     st1 := modestr[random(7)];
  35.     write(fd_file,st1 :2);
  36.     st2 := bandstr[random(10)];
  37.     write(fd_file,st2:3);
  38.     write(fd_file,section: 14);
  39.     writeln(fd_file,date:3,time:5);
  40. end;
  41.  
  42.  
  43. begin
  44.   modestr[0] := 'CW';
  45.   modestr[1] := 'AM';
  46.   modestr[2] := 'FM';
  47.   modestr[3] := 'SB';
  48.   modestr[4] := 'RY';
  49.   modestr[5] := 'MT';
  50.   modestr[6] := 'PK';
  51.   bandstr[0] := '160';
  52.   bandstr[1] := ' 80';
  53.   bandstr[2] := ' 40';
  54.   bandstr[3] := ' 20';
  55.   bandstr[4] := ' 15';
  56.   bandstr[5] := ' 10';
  57.   bandstr[6] := '  6';
  58.   bandstr[7] := '  2';
  59.   bandstr[8] := '220';
  60.   bandstr[9] := '440';
  61.   callsign := '      ';
  62.   assign(fd_file,'TEST10');
  63.   rewrite(fd_file);
  64.   for line := 1 to 1000 do
  65.     fprint;
  66.   close(fd_file);
  67. end.